home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
sort2.zip
/
ISATTY.FUN
< prev
next >
Wrap
Text File
|
1993-01-04
|
329b
|
11 lines
{ Call with 0 or 1 to see if standard input or output has been directed from
or to a file. }
function isatty(handle:word):boolean; var r: dos.registers; begin
with r do begin
ax:=$4400; bx:=handle; dos.msdos(r);
if (flags and fcarry)=0 then
isatty:= (ax and $80)<>0
else isatty:=false; end; end;